null {4}clear 
   1 .
   2 .MIDSTATEMENT CHANGER
   3 . JIM DUNSON
   4 .
   5 input "IN line #:",""S;for N=-24576to -22777;if %(N)#Snext N
   6 for N=Nto %(20050);print #1,"N:",N,#9,%(N),"  ",;TV=%(N);print ;if &(23)=1goto 9
   7 if CY=-40clear ;N=N-2
   8 next N
   9 input "CHG N:",""N;A=%(N+1);print "TO:",;%(N)=KP;%(N+1)=A;clear ;list S,1;STOP
:return ;clear ;CY=0;CX=-40;NT=5;print "right PAUSE TAPEleft ";NT=0;if KPclear ;list 